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RUN... 


...|n Basic è il Comando che fa partire l'esecuzione di un 
programma. 

Per noi della NEWSOFT è /a partenza di SOFTWARE & 
SOFTWARE una nuova rivista dedicata al TI-99/4A, un 
computer forse dimenticato ma MAI abbandonato da chi 
se ne intende. E come si dice... a buon intenditor poche 
parole. 


Ma vediamo di presentarci. '’Software & Software” è una 
rivista dove troverete listati di programmi, scritti per la 
maggior parte da altri lettori. A questo punto qualcuno 
si potrà chiedere: ma quali altri lettori? — Ma i lettori di 
TI-99 NEWSOFT. no? L’unica rivista con cassetta italia- 
na per il nostro Tl-99. 


Infatti la NEWSOFT pubblica da tempo ’’TI-99 Newsoft”, 
diffusa specialmente su abbonamento a tutti gli amici che 
non vogliono separarsi dal loro computer, che è pur sem- 
pre un 16 bit ed ha una grafica invidiabile. 

‘’Software & Software”, quindi, nasce dall'esperienza di 
una grande casa editrice e, se voi ci darete fiducia, vi di- 
mostrerà che il buon ’’vecchio’’ TI-99, non è poi da but- 
tare via. 


1° Censimento Nazionale 
Software per Tl-99/4A 


La NEWSOFT promuove il primo censimento nazionale di tutto il soft- 
ware disponibile per il TI-99/4A allo scopo di consentire a tutti i pos- 
sessori di TI-99 la massima flessibilità di utilizzo del computer secon- 
do le più specifiche esigenze. 

Se avete realizzato dei programmi per TI-99 che ritenete interessan- 
ti, utili o divertenti e se siete disposti a venderli ad altri ‘’novantano- 
viani”’, inviateci per ogni programma la scheda inserita al centro del- 
la rivista (potete fare delle fotocopie), più una sola copia della sche- 
da informativa. Le schede devono essere compilate in ogni loro par- 
te, possibilmente a macchina o comunque in stampatello; la descri- 
zione del programma deve essere sintetica ma esauriente. Le sche- 
de incomplete o illeggibili non potranno essere tenute in 
considerazione. 

Completato il censimento la NEWSOFT pubblicherà un catalogo di 
tutto il software valido ricevuto, completo di descrizione di ciascun 
programma e prezzo di vendita. 

A tal fine vi chiediamo un contributo di Lit. 5.000 per la prima scheda 
e Lit. 2.000 per ogni scheda successiva, da allegare in francobolli, 
a parziale copertura delle spese di edizione del catalogo, che verrà 
spedito gratuitamente a tutti coloro che avranno inviato le schede. 
Da quel momento i programmi potranno essere richiesti direttamen- 
te alla NEWSOFT che provvederà a girare le ordinazioni ai posses- 
sori dei medesimi, rimettendo loro il compenso stabilito, detratto il 
30% a copertura delle spese di gestione e spedizione sostenute dal- 
la Newsoft. 

Anche se non avete intenzione di proporre dei programmi da voi rea- 
lizzati, potete comunque partecipare a questa grande iniziativa co- 
me acquirenti: compilando ed inviandoci la sola scheda informativa, 
unitamente a Lit. 5.000 in francobolli, riceverete il catalogo a casa 
vostra. 

Aspettiamo i vostri migliori programmi, il successo di questa iniziati- 
va dipende solo da voi! 


DIAGRAMMI 
A STRISCE 


Questo programma scritto in TI BASIC, offre il vantaggio di una maggior versatilità rispetto ad altre versio- 
ni in quanto consente l'introduzione di dati dipendenti sia da una legge matematica che da una funzione 
empirica, consente poi la modifica degli stessi in modo selettivo e sequenziale e prevede l'ordinamento 
dei dati sia secondo l'ordine crescente delle misure sia secondo quello alfabetico degli elementi descrittivi. 
L'elaborazione grafica utilizza l’alta risoluzione derivante dalla definizione di caratteri programmabili, con- 
sentendo la visualizzazione di strisce la cui lunghezza varia in modo discreto pixel per pixel. Il grafico, 
inoltre, è dimensionato automaticamente e può avere uno sviluppo verticale oppure orizzontale; in en- 
trambi i casi, se il numero di elementi supera il numero di righe e di colonne del display del TI-99/4A, 
essi vengono mostrati attraverso "’finestre’’, alle quali si passa sequenzialmente premendo un tasto. È 
prevista anche la rappresentazione di valori negativi. 

Dopo il RUN appare il menu principale. Premendo il numero 1 si procede all’introduzione dei dati. Questi 
possono rispondere o ad una funzione matematica o empirica. La funzione matematica eventualmente 
utilizzata va definita alla linea 1000 del programma. Le istruzioni che appaiono sul video sono comunque 


esaurienti. 

120 REM DIAGRAMMI A STRISCE 512 PRINT TAB(8);"3.TABULAZIONE": è» 

1109 REM Ered AIE REA 5229 FRINT TAB(8); "4, ORDINAMENTO": 

120 DIM A$£(120,2),X(100),I*(122) 530 PRINT TAB(8);"5.DIAGRAMMA": : 

139 CALL CHAR(128, "FF") 540 PRINT TAB(8); "6.FINE": è» : 

142 CALL CHAR(129, "B721212121010101") 550 CALL HCHAR(4,5,128,24) 

150 CALL CHAR(132, "A0000000FF") 562 CALL HCHAR(7,5,128,24) 

160 CALL CHAR(131,"2101210101010101") 570 CALL VCHAR(4,4,131,18) 

170 CALL CHAR (132, "8282808082828082") 582 CALL VCHAR(4,29,132,18) 

189 CALL CHAR(136,"7F7F7F7F7F7F7F7F") 592 CALL HCHAR (22,5,128,24) 

190 CALL CHAR (137, "807F7F7F7F7F7F7F") 600 CALL KEY (0,K,5) 

200 CALL CHAR(138, "00007F7F7F7F7F7F") 610 IF S5=0 THEN 600 

212 CALL CHAR(139, "A000007F7F7F7F7F") 6520 IF {K49)+(K>54)THEN 600 

220 CALL CHAR(140, "000000007F7F7F7F") 630 K=k-48 

232 CALL CHAR(141, "M0000000007F7F7F") 642 ON K GOTO 680,1312,1810,2150,2630,44 

240 CALL CHAR(142, "A000000000007F7F") Ba 

250 CALL CHAR(143, "OAQ02000020000007F ") 6520 REM »* 

260 CALL CHAR(144, "BOFFFFFFFFFFFFFF") 660 REM * INSERIMENTO 

270 CALL CHAR(145, "OQFEFEFEFEFEFEFE") 670 REM » 

2B0® CALL CHAR(146, "090FCFCFCFCFCFCFC") 6809 CALL CLEAR 

292 CALL CHAR(147, "Q20FB8F8F8F8FBF8F8") 690 PRINT TAB(7); "INSERIMENTO DATI": 

300 CALL CHAR(148, "00F0FOFOFOFOFOFO") so: 

312 CALL CHAR(149, "AQEDEDEDEDEQEDREO") 700 INFUT "QUANTI SONO I DATI? "sN 

320 CALL CHAR(152, "80CB8C2C2C0C0C9C2") 710 PRINT 

339 CALL CHAR(151, "MN080828080808080") 720 IF N<=1090 THEN 7502 

349 CALL CHAR:(152,"7F7F7F7F7F7F7F") 730 PRINT "SFIACENTE. NON FIU‘ DI 100": 

350 CALL CHAR(153, "7F7F7F7F7F7F") : 

362 CALL CHAR(154,"7F7F7F7F7F") 749 GOTO 700 

370 CALL CHAR (155, "7F7FE7E7F") 750 PRINT : s"I DATI VARIANO SECONDO": 

380 CALL CHAR(156,"7F7F7F") 760 PRINT "<1> UNA LEGGE MATEMATICA": è: 

392 CALL CHAR (157, "7F7F") 770 FRINT "“2> UNA LEGGE EMFIRICA": 

420 CALL CHAR(158,"7F") 780 CALL KEY(2,K,5) 

412 CALL COLOR(14,9,1) 790 IF 5S=2 THEN 782 

429 CALL COLOR(15,5,1) 800 IF K=49 THEN 820 

432 CALL COLOR(16,9,1) B10 IF K=59 THEN 1149 ELSE 780 

440 SP$="<SPACE>" 820 CALL CLEAR 

450 CALL CLEAR 832 PRINT “PER INSERIRE LA FUNZIONE NEL" 

460 FLAG=0 849 PRINT "FROGRAMMA, E* NECESSARIO IN-" 

470 FLAG2=0M 852 FRINT "TERROMPERLO CON IL COMANDO" 

489 FRINT TAB(5); "DIAGRAMMI A STRISCE. ": 860 PRINT "FCTN“4>=BREAKE E POI SCRIVERE" 
RE AR 870 PRINT "LA FUNZIONE AL NUMERO DI LI-" 


499 PRINT TAB(8); "1. INSERIMENTO": =: 882 PRINT "NEA 12900 USANDO L'ISTRUZIONE " 


® = 


520 PRINT TAB(8);"2.MODIFICA": è: B99 PRINT "DEF. AD ESEMPIO:": è: 
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900 FRINT "1000 DEF F(X)=100@*(1+.12)©X" 1540 NEXT J 

ts: 1550 GOTO 450 

9129 PRINT "SCRITTA LA FUNZIONE, RIPREN-" 1562 CALL CLEAR 

922 PRINT "DERE L'ESECUZIONE CON IL CO-" 1570 FRINT "QUALE DATO VUOI MODIFICARE?" 
930 PRINT "MANDO <“RUN>. " 1582 INPUT D 

342 PRINT "SE LA FUNZIONE E° GIA' STATA" 1590 FRINT 

9529 PRINT "SCRITTA PROSEGUIRE BATTENDO: " 1500 IF D<=N THEN 1630 

ei 1610 PRINT "* OUT OF RANGE!": : 

960 PRINT TAB(11);"<SPACE>": =: 1620 GOTO 1570 

970 CALL KEY(0,kK,5) 1630 PRINT D;A#(D,1);",":A*(D,2 

989 IF S=0 THEN 972 1640 PRINT "scrivi i nuovi dati":D; 
992 GOSUB 4140 1650 INFUT A$(D,1),M 

1000 DEF F(X)=1000x(1+.12)*X 1662 A$(D,2)=STR$(M) 

1010 REM »* 1670 IF M“=MAX THEN 1692 

1020 REM * FUNZIONE F(X) 1680 MAX=M 

1030 REM * 1690 IF M>=MIN THEN 1712 

1040 FOR J=1 TO N 1700 MIN=M 

1052 IF FLAG2=1 THEN 1072 1710 PRINT 

1060 A#(J,1)="F ("&STR$(I)&")" 1720 PRINT "ALTRE MODIFICHE? (YZN)" 
1070 A$(J,2)=STR$(F(J)) 1730 CALL KEY(0,K,8) 

1080 IF F(J)<=MAX THEN 1122 1740 IF S=0 THEN 1730 

1090 MAX=F (J) 1750 IF K=83 THEN 1570 

1100 IF F(J) 3=MIN THEN 1120 1760 IF K=78 THEN 452 ELSE 1730 

1110 MIN=F (J) 1770 GOTO 450 

1120 NEXT J 1780 REM * 

1138 GOTO 1260 1790 REM * TABULAZIONE 

1142 CALL CLEAR 1820 REM * 

1150 PRINT "INSERISCI LA DESCRIZIONE E" 1812 GOSUB 4372 

1169 PRINT "LA MISURA SEPARATE DA UNA": " 1820 FOR J=1 TO N 

VIRGOLA": è 1830 SCREEN=02 

1170 FOR J=1 TO N 1840 IF FLAG<>1 THEN 1880 

1180 PRINT Ji. 18520 PRINT TAB(4-LEN(STR£ (3) ))pdJs"- ";A$ 
1190 INPUT A$(J,1) ,M (X(J) ,1)3 

ica pwd pioli 1860 F=20-LEN(A8(X (3) ,1))-LENCA$(X(J) 32) 
1220 MAX=M ) | 

1230 IF M>=MIN THEN 1250 1870 IF P<1 THEN 1970 ELSE 1910 E > 
1240 MIN=M prg Fb) TAB (4-LEN(STR$(J)));dJ:"- "sA$ 
25 " : 

i ped 1890 P=22-LEN(A$(J,1))-LEN(A$(J,2)) 
1270 GOTO 450 1900 IF F<1 THEN 1950 

1280 REM »* 1 1912. FOR V=1 TO F-1i 

1292 REM * MODIFICA 1920 FRINT "."; 

1300 REM * 1950 NEXT 4 

1310 GOSUB 4370 1942 IF FLAG=1 THEN 1970 

1320 PRINT "MODIFICA:": è: 1950 FRINT TAB(28-LEN(A#(J,2)));A$(J,2) 
1330 PRINT "<1> SEQUENZIALE": : 1960 GOTO 1980 

1340 PRINT "<2> SELETTIVA": : 1970 PRINT TAB(2B-LEN(A$(X(J) ,2))); AE (X( 
1352 CALL KEY(0,K,8) J) 42) 

1360 IF S=0 THEN 1350 19B8Q IF J/20<>INT(3J/20) THEN 2010 

1270 IF K=49 THEN 1390 19929 SCREEN=20 

1389 IF K=50 THEN 1560 ELSE 1350 2000 GOSUB 2050 

1390 CALL CLEAR 2010 NEXT J 

1400 FOR J=1 TO N 2920 IF SCREEN=2Q2 THEN 450 

14120 PRINT J;A#(J,1);",";:A$(J,2) 20350 GOSUB 220502 

1420 PRINT “modifica? (y/n)" 2040 GOTDO 450 

1430 CALL KEY(2,K,5) 2050 PRINT 

1440 IF S=@ THEN 1430 2060 FRINT TAB(8);"<PREMI SFACE >" 
1450 IF K=89 THEN 1470 2072 CALL KEY (0,kK,5) 

1460 IF K=78 THEN 1542 ELSE 1430 2080 IF S=@ THEN 2070 

1470 PRINT J; 2092 CALL CLEAR 

1480 INPUT A#(J,1),M 2122 RETURN 

1490 A$X(J,2)=STR$(M) 2110 GOTO 450 

1500 IF Mf=MAX THEN 1522 2120 REM * 

1510 MAX=M 2130 REM * ORDINAMENTO 

1522 IF M>=MIN THEN 1542 2142 REM * 

1530 MIN=M 21529 GOSUB 4370 
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2160 
2170 
2180 
2192 
2200 
2210 
2220 
2230 
2240 


2250 
2260 
2270 
2280 


2290 
2300 
2310 
ZERO 
2330 
2340 
LIM 
2360 
2370 
2380 
2390 
2400 
2410 
2420 
2450 
2440 
2450 
24650 
2470 
24820 
2492 
LODO 
23512 
LILB 


Zoo 


2540 


LA 


LUO 
2670 
LIOD 
2590 
2600 
2610 
2620 
26530 
2642 
2650 
2660 
2670 
26080 
2690 
2700 
2719 
2720 
2750 
2742 
2742 
2745 
2746 


IF K=49 THEN 


PRINT "SECONDO QUALE CAMPO VUOI OR- 
PRINT "DINARE LA TABELLA?": : 

PRINT "<1> DESCRIZIONE": : 

PRINT "<2> MISURA": : 

CALL KEY(2,K,5) 


IF S=0 THEN 2200 
IF {Kx49)+(K>502) THEN 2200 
CALL CLEAR 

PRINT "UN MOMENTO... 


k=kK-48 

GOSUB 235420 

CALL CLEAR 

PRINT TAB(7); "TABELLA ORDINATA": : 


STO ELABORANDO 


FLAG=1 

GOTO 1820 

REM » 

REM * ROUTINE DI ORDINAMENTO 
REM »* 

FOR R=1 TO N 


OTA=VAL (A#(R,2)) 

IF (K=1)+(QTA>=2) THEN 2392 
1$ (R)=STR£(1/0TA) 

GOTO 2412 

I (R)=A#(R,K) 

IF K=1i THEN 2460 
Z=LEN(STR$ (MAX) )-LEN(I$(R)) 


IF .Z2=2 THEN 2468 
FOR W=1 TO 2 

1% (R)=CHR£ (32) &I1£(R) 

NEXT W 

NEXT R 

FOR J=1 TO N 

P=1 

FOR E=1 TO N 

IF 1£(J) >I#(K)THEN 2550 

IF 1I%(J)=I%{KE)THEN 253 
GOTD 2560 

IF J3k THEN®2550 

GOTO 2560 

P=P+1 

NEXT K 

X{(P)=J 

NEXT J 

RETURN 

REM * 

REM * DIAGRAMMA 

REM » 

GOSUE 4370 

FRINT "DESIDERI LA RAPFPRESENTAZ LONE 
PRINT "DELLE MISURE": =: 
PRINT "<1> NON ORDINATE": : 
PRINT "<2> ORDINATE": : 
CALL KEY (0,kK,5) 


IF S=02 THEN 26890 
2745 
IF Kk<>50 THEN 2680 
FLAGI=1 

ks 

GOSUE 2340 

GOTO 2752 

FOR J=1 TON 
X{J)}=yJ 
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2747 
2750 
2762 
2770 
2780 


2790 
2800 
28102 
2820 
2830 
2840 
2850 
2B60 
2878 
28820 
890 
00 
2912 
2920 
2PISD 
2940 
29750 
2962 
2970 
2980 
2992 
3000 
S210 
3020 
ago 
3040 
Soa 
SD60 
SA70 
2080 
«N90 
1020 
3112 
3120 
3130 
3142 
3150 
3160 
31702 
3182 
3190 
3200 
3210 


tati di 


sl Li 


3240 
3250 
SLb 
3272 
3282 
32902 
3300 
3310 
3320 
ISO 
3342 
SIOO 
3360 
3370 
3.382 
3390 


NEXT J 
IF MINS® THEN 3442 

PRINT 

U=MAX/19 

PRINT "VUOI UN DIAGRAMMA A STRISCE" 
PRINT "<1> VERTICALI": =: 

FRINT "<2> ORIZZONTALI": : 

CALL KEY (Q,kK,8) 


IF S=2 THEN 2810 

IF K=49 THEN 2850 

IF K=SQ THEN 3182 ELSE 2810 
CALL CLEAR 

CALL HCHAR(21,5,128,25) 
CALL VCHAR(1,4,129,20) 
COLO=4 

FOR J=1 TO N 


IF FLAGi=1 THEN 2930 
Q=J 

GOTO 2940 

O=X (J) 

FOR K=1 TO LEN(STR£(0Q))} 


L=ASC (SEG$ (STR$ (0) ,K,1)) 
CALL HCHAR(21+K,C0L0+J,L) 
NEXT K 
LUNG=INT (VAL (A#(0,2))/U) 

IF LUNG=2 THEN 3030 

FOR K=22 TO 21-LUNG STEP -1 
CALL HCHAR(K,COL0+],136) 
NEXT K 

DIFF=VAL (A$(0,2)) /U-LUNG 
FR=INT(8*DIFF+1) 

IF FR=0 THEN 3070 

CALL HCHAR(22-LUNG, COLO+],144-FR} 
IF 3J/25<>INT(J/25) THEN 3150 
CALL KEY(8,K,5) 

IF S=2 THEN 3080 

FOR H=5 TO 30 

CALL VCHAR(1,H,32,20) 

NEXT H 

CALL HCHAR(22,3,32,60) 
COLO=COL0-25 

NEXT J 

GOSUB 4042 

GOTO 459 

CALL CLEAR 

FOR J=1 TO N 

IF FLAG1=1 THEN 3230 

Q=J 

GOTO 3240 

Q=X (3) 

IF LEN(A#£(0,1))<B THEN 3270 
D#=SEG$(A#(0,1),1,7) 

GOTO 3280 

D#=A# (0,1) 

PRINT TAB(8-LEN(D£));D# 
LUNG=INT (VAL (A% (0,2) ) /U) 

IF LUNG=2@ THEN 3320 

CALL HCHAR(23,11,144,LUNG) 
DIFF=VAL (A$ (0,2) ) /U-LUNG 
FR=INT(8*DIFF+1) 

IF FR=2 THEN 3360 

CALL HCHAR(23,11+LUNG,152-FR) 
IF J/20<>INT (3/20) THEN 3400 
IF J=N THEN 3410 

GOSUB 4042 

CALL HCHAR(24,3,32,28) 


Ti Basic 


3400 
3410 
3420 
3430 
3440 
3452 
3462 
5470 
3480 
3490 
Sono 
3510 
S520 
3540 
Bata] 
3560 
3570 
3580 
So 
Tono 
3612 
PO 620 
3630 

3642 

Sosa 

3660 

3670 

3680 

3690 

3700 

3710 

A720 

3750 

3740 

3750 

3760 

3770 

3780 

x 3790 
3800 
3810 
ae 
3850 
3040 
3850 
3RB60 
3870 
3880 
I892 
a9DO 
3910 
3920 
SRI 
3940 
3950 
3962 
3972 
3980 
3990 
4000 
4010 
4220 
4030 
42040 
4052 


a 


————_ 


NEXT J 

PRINT 

GOSUB 4040 

GOTO 450 

CALL CLEAR 

U= (MAX-MIN) /18 

YO=INT (MAX/U)+3 

COLO=4 

CALL VCHAR(2,4,131) 

CALL VCHAR(3,4,129,19) 

CALL HCHAR(Y9,3,48) 

J=0 

BOSUB 3880 

FOR J=1 TO N 

IF FLAGI=i THEN 3580 
G=ABS (VAL (A£(I,2))) 
VERSO=SGN (VAL (A#(1,2))) 

GOTO 3600 

GEABES (VAL (A$(X (3) ,2))) 
VERSO=SGN (VAL (A$ (X (3) ,2))) 

LUNG=INT (@/U) 

DIFF=(@/U-LUNG) 

FR=INT(8*DIFF) 

IF LUNG=2 THEN 3720 

IF VERSO<0 THEN 3690 

CALL VCHAR (YB-LUNG, COLO+J , 136 , LUNG) 
IF FR=0 THEN 3720 

CALL VCHAR (YQ-LUNG- 1, C0LO+] ,144-FR) 
GOTO 3720 | 
CALL VCHAR (YB, COLO+J, 136 LUNG) 

IF FR=0 THEN 3720 

CALL VCHAR(YB+LUNG,COLO+J,159-FR) 
IF 3/25 >INT(J/25) THEN 3810 

IF J=N THEN 3820 

CALL KEY(8,K,5) 

IF S=2D THEN 3746 

FOR H=5 TO 30 

CALL VCHAR(1,H,32,22) 

NEXT H 

COLO=COL0-25 

GOSUB 3880 

NEXT J 

GOSUB 4040 

G0T0 452 

6462 
REM * 
REM »* 
REM » 
FOR K=1 TO LEN(STR$(J+1)) 
L=ASC(SEG$(STR$ (J+1),K,1)) 
CALL HCHAR(1,4+K,L) 

NEXT K 

FOR K=1 TO LEN(STR$(J+10)) 
L=ASC(SEG& (STR$(J+10) ,K,1)) 
CALL HCHAR(1,13+K,L) 

NEXT K 

FOR K=1 TO LEN(STR$(J+22)) 
L=ASC(5EG$(STR$(J+20),K,1)) 
CALL HCHAR(C(1,23+K,L) 

NEXT K 

RETURN 

REM * 

REM * SUBROUTINE SPACE 

REM » 

FOR K=i TO 7 
L=SASC(SEG$(SFP£,K,1)) 


ROUTINE ESTREMI 


DIAGRAMMI 
A STRISCE 


CALL HCHAR(24,12+K,L) 
NEXT K 

CALL KEY (2,K,5) 

IF S=0 THEN 4080 


RETURN 

REM * i 

REM * NUMERAZIONE FX) 

REM * 

CALL CLEAR 

PRINT “"VUDI NUMERARE I VALORI F(X)" 


PRINT "IN MODO FERSONALE"” 
CALL KEY (20,k,5) 

IF S=0 THEN 4170 

IF K=89 THEN 4210 

IF Kk=78 THEN 4260 ELSE 4170 


(Y/N)" 


FRINT 

PRINT "SCRIVI IL NUMERO INIZIALE E" 
PRINT "L'INCREMENTO, SEFARATI DA UNA 
PRINT "VIRGOLA. "5; 

INFUT "(N,I) “:NI,IN 

CALL. CLEAR 

PRINT "UN MOMENTO... STO ELABORANDO 
IF K=78 THEN 43530 

FOR d=1 TO N 

A& (3,1) =STR$(NI+(J-1)*IN) 

NEXT J 

FLAGZ=1 

RETURN 

REM * 


REM * CONTROLLO INSERIMENTO 

REM * 

CALL CLEAR 

IF INS=1 THEN 44350 

PRINT "I DATI NON SONO ANCORA STATI 


PRINT "INSERITI! ": 3: 
GOSUB 4240 

GOTO 4502 

CALL CLEAR 

RETURN 

REM * 

REM * FINE 

REM * 

CALL CLEAR 

END 


Numero 10 - anno II° - giugno 1985 


COME SI COSTRUISCE 
UN ADVENTURE 


{1 COCKTAILS ESTIVI 
CON IL TI 99 
\d 


g 

pera È; 

è | I METE 
rg 4 


IN SOFTWARE & SOFTWARE 
L’IMPICCATO - DISCOVERY 
GOLF 


“E i II 


Chi si sente scorrere nelle vene il demone del gioco potrà con questo divertente programma realizzare 
i suoi sogni lasciando nel contempo intatto il suo conto in banca. Il gioco è diviso per ragioni di spazio 
in due blocchi: uno contiene le istruzioni relative alla grafica, l’altro è il programma vero e proprio. Carica- 
te come al solito la prima parte e poi, seguendo le istruzioni, passate a leggere la seconda. Giocare è 
semplice: alla prima domanda dovete rispondere con il numero del giocatore che volete far intervenire 
(da 1 a 5), battere E per terminare e R per porre tutti i partecipanti alla pari. Si passa ora, manovrando 
il gettone blu con i tasti E,S,D,X, a decidere i vari tipi di puntata (semplice, doppia, sestine ecc.). Fissata 
la posizione desiderata con il tasto Q dovete ora decidere quanti dollari puntare. A questo punto 


‘’rien ne va plus!"'. 


ROULETTE CRD 


190 CALL CLEAR 

110 CALL SCREEN(2) 

10000 T$*=RPT#("Q@",33):: U$=RPT$("2",48): 
: V$=RPT*("O0",12):: Z#=RPT$("BO0",14):: S 
*=RPT$("01",14):: K$=RPT$("F",8) 

120320 CALL CHAR(36,"FF"&Z$&"FFFF"&S$&"FF 
",74,"44444444444438003854503814543800") 
12042 CALL CHAR(402, "006E226522E286E000065E 
286E22226E00006E226E22226E00006E286E2A2A 
6E00",71,"020007824243820203010101010107C 
0a") 

109252 CALL CHAR(44, "006E28286E4A6EDOODEE 
2AZE652426E00006E222262426200006E2A6AZAZA 
6E00",76,"202000384848483400" ,66,"20004444 
30040418") 

10060 CALL CHAR(60, "006E2A2A6A4A6ED0006E 
P22E62426E0000642C2464446E000068282A6E42 
6200",70,"0010107C12100000") 

10070 CALL CHAR(92, "0028682A2E222200002E 
622222222200002E68282E222E00002E6A2E2A2A 
2E00") 

109080 CALL CHAR(96,"001C141C14141C2000024 
6C2424242E00001C14141C041C00002E652222E28 
2E00") 

10092 CALL CHAR(120,"2001C041C12121C20001 
C121C042041C20001C041C04041C200001C101C141 
41000") 

1010929 CALL CHAR(104,T$&%"208182828081C000 
0120120141C040400",108,T*&"01C04042042940400 
002E6AZAZAZAZEDO" ) 

10120 CALL CHAR(112,T#$&"202E622622222E200 
02E68282E2A2E00",116,T$&"02E6A2E22222E00 
006E22226E486E20" ) 

10140 CALL CHAR(120,T#&®"06E282E62426E000 
06E2A2E6A4A6E00",124,T$%"0642C65424246E00 
D068286A2E226200" ) 

101609 CALL CHAR(33,V$&K£&V$&"C0C0C0C0C0C 
QC0C2",58, "203030303030 30303"&K$&K£) 
109219 CALL CHAR(128, "002E2A3ADI203E282835 
E00003828283EB80BEANBEBOB80BEABABBEBMBEAMB 
EAQBE ") 


10220 CALL CHAR(132,V$&"200222A3ED0002E2A 
3ADABQ2AZAABE80980BE8282BE8082BEA6BEB8D" ) 
10232 CALL CHAR(136, "2038282 835E2200000010 
10120101010000BEA0BE82BE800000C040404040C 
Q20000" ) 

10240 CALL CHAR(140, "20000000003 A2A2C3E0 
03E003E28283EBAACBEBOBEBMBEABBEBMBBABBE8 
QBEAQ" ) 

10260 CALL CHAR(88, "2103040F 103F 40FFFF40 
3F100F2940930180C020F008FC02FFFFO2FC08FM20 
CORO") 

10270 CALL CHAR(B4, "FFFFC3CISCISCI3FFFF "&U$ 
)3:= CALL SCREEN(4):: RUN "CS51" 


ROULETTE CA LI 
1 OPTION BASE 1 
2 CALL CLEAR :: ON BREAK NEXT =: CALL MA 


GNIFY (4) 

3 DIM AC19,23) 

190 FOR X=1 TO 12 

110 FOR Y=1 TO 23 

120 READ ACX,Y) 

132 NEXT Y ss: NEXT X 

150 DATA 1,43,4,44,7,45,10,46,13,47,16,4 
8,19,49,22,50,25,51,28,52,31,53,34 

160 DATA 49,50,51,52,53,54,55,56,57,58,5 
9,60,61,62,63,64,65,66,67,68,69,70,71 
170 DATA 2,72,5,73,8,74,11,75,14,76,17,7 
7,20,78,23,79,26,80,29,81,32,82,35 

180 DATA 83,84,85,86,87,88,89,90,91,92,9 
3,94;95,96,97,98,99,100,101,102,103,104, 
105 i 

190 DATA 3,106,6,197,9,108,12,129,15,110 
,18,111,21,112,24,113,27,114,30,115,33,1 
16,36 

200 DATA 117,118,119,120,121,122,123,124 
,125,126,127,128,129,130,131,132,133,134 
,135,136,137,138,139 

212 DATA 142,142,142,200,38,38,38,200,39 
,39,39,200,40,40,40,200,41,41,41,200,42, 


42,42 


<a 


creo 


‘ 4 LA AO 4 { v x x A a AI E : MaI CS pet PRI I: t 
ARR PORRO FLORIO VE, pari cieca SA diari ro n I 
" A 3 da Lie FI: SERI è PSI è, 


E PO vue eran ) MRC puri ESITA TAI EPZRI2 SRO PRETE PER ESA TI pr 
€ 0,4 na —f ped rile ii 24 PSI. MI pt i, SOB eli drei acini da Dott = CRT ret Pa PCS A va | 
fi . % x n CASTA Ari ù 
' Ei 7 } 
pic. 7 » 4 
ili Aia \ = 
î f 
Pa 
- = 
————_______—____———_——_——_—_—_— + +_}#+_+#+È+Y+ tT____—_______112=1m nia — ——_—_— ————_—_—_——1 
"ve apro np n n 


UNICA RIVISTA CON CASSETTA PER IL TUO TI994A 


ABBONATI A TI-99 NEWSOFT 
» SARAI SICURO DI RICEVERE TUTTI | MESI 

L'UNICA RIVISTA CON CASSETTA PER IL TUO TI-99/4A 
E NON DIMENTICARE TUTTI | VANTAGGI 

RISERVATI AGLI ABBONATI 


abbonarsi costa solo L. 95.000 
per 11 numeri in un anno 


per farlo non devi che compilare l'apposita cartolina 
e farla pervenire a 


NEWSOFT snc 
Via Stefano Jacini, 4 - 20121 Milano 


220 DATA 142,140,142,140,140,140,142,200 
,141,141,141,141,141,200,37,200,143,143, 
143,200,144,144,144 

230 DATA 200,200,202,200,200,200,200,200 
,200,200,200,200,200,200,37,200,143,143, 
143,200,144,144,144 

249 DATA 145,145,145,145,145,145,145,200 
,146,146,146,146,146,200,37,200,143,143, 
143,200,144,144,144 

1200 DISPLAY AT(2,9):"P" è: 
,9) "12" 


DISPLAY AT(5 


1012 DISPLAY AT(12,9):"D" :: DISFLAY AT( 
11,9): "12" 

1920 DISPLAY AT(18,9):"2" :: DISFLAY AT( 
19,9): "CO" 

1032 DISFLAY AT(6,9):"M" :: DISPLAY ATC(7 
s9)s"12" 

1049 DISPLAY AT(14,9):"1" :: DISPLAY AT( 
15,9): "CO" 

10509 DISFLAY AT(22,9):"3" ss DISFLAY AT( 
235,9): "CO" 

109289 FOR TT=® TO 22 STEP 2:: FOR SS=0M- 
2 TO 2 STEP 2 :: CALL HCHAR(1+TT,15+55,3 
6) 


19290 CALL HCHAR(2+TT,15+55,37):: 

CHAR(1+TT,16+55,38):: 

+55,39) 

10320 NEXT SS NEXT TT SS,TT=0Q 
10330 CALL SFRITE(#1,420,2,161,113,#2,44, 

2,129,113,#3,69,2,97,113,#4,92,2,65,113, 
#5,96,2,33,113) 

10380 CALL SPRITE(#6,120,2,1,113,#7,104, 
2,1,81,#8,128,2,33,81,#9,112,2,65,81,#102 
,116,2,97,81) 

10432 CALL SPRITE(#11,120,2,129,81,#12,1 
24,2,161,81,#13,128,2,32,148,#14,132,2,2 
,148,#15,136,2,99,148) 

12482 CALL SPRITE(#16,140,2,68,148,#17,98 
8,2,162,148,#18,88,7,131,148) 

12512 CALL HCHAR(1,11,34,2):: CALL HCHAR 
(1,19,34,5):: CALL HCHAR(9,11,34,2):: CA 

LL HCHAR(9,19,34,5):: CALL HCHAR(17,11,3 
4,2) 

12562 CALL HCHAR(17,19,34,5):: CALL HCHA 

R(24,11,33,2):: CALL HCHAR(24,19,33,5)t: 
CALL VCHAR(1,129,58,24):: CALL VCHAR(1,2 
4,35,24) 


CALL H 
CALL HCHAR(2+TT,16 


19612 CALL HCHAR(21,19,34,5):: CALL HCHA 
R(14,19,33,5) 
19662 CALL HCHAR(5,11,34,2):: CALL HCHAR 


(13,11,34,2):: CALL HCHAR(21,11,34,2) 
19665 IP(1),IP(2),IF(3) ,IF(4) ,IP(5)=100 
11992 GC=0 

12002 FOR CC=1i TO 5 

12010 DISPLAY AT(1+5P,23):"GHLB"3CC :: D 
ISPLAY AT(3+SP,23)SIZE(8):USING "####":1 
P(CC):: DISPLAY AT(3+5P,28):"K" 

12020 SP=SP+4 NEXT CC :: SP=0Q 

12050 IF GC=0 THEN 13020 

12062 RETURN 

13020 G6=G+1 X,Y=1 :: ACCEPT AT(1,2)BE 
EP SIZE(1)VALIDATE("1234SRE"):6C$ IF 
GC$="" THEN 162000 IF GC$="R" THEN 126 
65 IF GC$="E" THEN 30000 ELSE BGC=VAL ( 
6C$) 

13030 CALL SPRITE(#20,84,5,X,Y) 


13 


ROULETTE 


13040 
042 

13060 
13070 
1350980 
13092 
13100 


CALL KEY (0,K,ST):: 


Loi 
n 


ST=2 THEN 13 
IF K=B3 
IF K=68 
IF K=69 
IF K=88 THEN 
IF K=81 THEN 
13110 GOTO 13040 
13160 IF X<1' OR Y<1i OR X>256 OR Y>192 TH 
EN X,Y=1 

13162 CALL LOCATE (#20,Y,X):: 
13172 REM 
13180 IF 
13190 IF 
13200 IF 
13210 IF 
13220 IF 
13230 IF 
13240 IF 
13250 IF 
13260 IF 
132709 IF 
13280 IF 
13292 ON 


THEN 
THEN 
THEN 


X=X-8 
X=X+8 
Y=Y-8 
Y=Y+8 
13170 


GOTO 
GOTO 
GOTO 
GOTO 


13160 
13160 
13162 
13160 


GOTO 13040 


Y=1 THEN 13190 :: 
X=97 THEN X=1 
X=1095 THEN X=2 
X=113 THEN X=3 
X=121 THEN X=4 
X=129 THEN X=5 
X=137 OR X=89 THEN X=6 
X=81 THEN X=7 

X=145 THEN X=8 

X=153 OR X=161 THEN X=9 
X=169 THEN X=102 

WARNING NEXT 


Y= (Y-1)/B+1 


DISPLAY AT(15,4 


)SIZE(1):"K" :: ACCEPT AT(15,1)BEEP VALI 
DATE (DIGIT)SIZE(3):PT(6C,6):: IF G6=10 TH 
EN 16000 

13300 IF(GC)=IP(GC)-PT(6C,6) 

13322 IF IP(GC)>=2 THEN 13310 

13304 IP(GC)=IF (GC) +PT(6C,6) 

13306 DISPLAY AT(15,1)SIZE(6):" NO " :: 
GOTO 13292 


13319 F(6C,B)=A(X,Y) 

13992 GOTO 13020 

15200 FOR G=1 TO G 

15210 FOR GC=1 TO GC 

15032 IF GC>4 THEN 15050 

15049 NEXT GC 

152050 NEXT G 

16000 RANDOMIZE 

16010 N=INT(37*RND)+1 :: IF N=37 THEN GO 
SUB 20000 :: N=0 :: GOTO 16181 
16215 GOSUB 23000 

16022 IF N<19 THEN FPS=145 

16030 IF N>18 AND N<37 THEN PS=140 
16040 IF N<13 THEN D=142 

160950 IF N>12 AND N<25 THEN D=38 
16069 IF N>24 AND N<37 THEN D=39 
16972 IF I=146 THEN I#="DISPARI" 
16089 IF R=143 THEN R#£="ROSS0" 
16092 IF R=144 THEN R$="NERO" 
16130 IF I=141 THEN I$="PARI" 
16172 IF PS=142 THEN FS$="PASSE" 
16180 IF PS=145 THEN FS$="MANQJE" 
16181 NO=N 

16183 DISPLAY AT(17,1)SIZE(7)s:NO :: DISP 


LAY AT(19,1)SIZE(7):R$ :: 
1)SIZE(7):I$.:: 
PS$ 
16184 
16190 
16200 
16210 
16220 
G)=PS 


DISPLAY AT(20, 

DISPLAY AT(21,1)SIZE(7): 
IF N=2 THEN 20010 

FOR TT=2 TO 1000 

FOR G=1 TO G 

FOR GC=1 TO GC 
IF F(6C,6)=N THEN GOSUB 17000 

IF P(6C,6)=R OR P(6C,6)=I OR P(GC, 

THEN GOSUB 17100 


NEXT TT 


Extended 


16250 IF F(6C,6)=D OR P(6C,6)=C THEN 608 
UB 17200 

165240 IF P(6C,6G)=S1 OR P(6C,6)=S2 THEN G 
OSUB 17300 

16250 IF P(GC,6)=C1 OR P(GC,6)=C2 OR F(G 
C,6)=C3 OR P(6C,6)=C4 THEN GOSUB 17400 
16260 IF P(GC,6)=T THEN GOSUB 17500 
162702 IF P(GC,G)=Vi OR P(GC,G)=V2 OR P(G 
C,6)=V3 OR P(GC,G6)=V4 THEN GOSUB 176500 


16282 P(6C,6)=0 :: PT (6C,6G)=02 
16292 IF GC>5 THEN 16310 
16320 NEXT GC 
163120 NEXT G 
16999 GOTO 18000 
17000 W=36 :: GOSUB 22000 :: RETURN 
17100 W=2 :: GOSUB 22000 :: RETURN 
17200 W=3 :: GOSUB 22000 :: RETURN 
17390 W=6 :: GOSUB 22000 :: RETURN 
17400 W=8 :: GOSUB 22000 :: RETURN 
17500 W=12 :: GOSUB 22000 :: RETURN 
17600 W=18 :: GOSUB 22000 :: RETURN 
17800 W=.5 :: GOSUB 22000 :: RETURN 
18200 GOSUR 120200 :: GOTO 20010 

° 20000 R$*,I#,PS$="" :: FOR G=1 TO G 
20021 FOR GC=1 TO GC 


20002 IF P(6C,6)=143 OR F(6C,6)=144 0R P 
(GC,6)=146 OR P(GC,6G)=141 THEN GOSUB 178 
Valla 

20003 IF F(6C,6)=142 OR P(6GC,6)=145 THEN 
GOSUB 17820 

20004 IF F(GC,G6)=37 THEN GOSUB 17000 


20025 IF G6C>5 THEN 20007 

20006 NEXT GC 

20007 NEXT G:: GOSUB 12000 :: RETURN 
200129 GC,6=29 :: GOTO 13020 

21000 END 

222020 PT (6C,6)=PT(GC,6)*W :: IF(GC)=IP(G 


C)+FT(6C,6):: DISPLAY AT(12,1)BEEP SIZE( 
7): "GHLB";6GC :: DISPLAY AT(12,1)SIZE(7): 
"E"5PT(6GC,6);K ss: WS0 :: RETURN 
235002 IF N=1 THEN I=146 :: R=143 :: C=40 
S1=118::: C1=50 ::: 52,C2,C3,C4,V3,V4 
=200 :: T=117 :: VIi=49 :: V2=43 


S1=118 :: 


: C2=B4 :: T=117 :: Vi=4 V2=8B3 :: V3 

=72 

230920 IF N=3 THEN I=146 :: R=143 :: C=42 
3: S1i=118 :: 52,C2,C3,C4,V3,V4=200 :: C 

1=84 :: Vi=83:: T=l117::: V2=1026 

25039 IF N=4 THEN I=141 :: R=144 :: C=40 
33 Si=i118 :: S2=120 :: C1=50 ss: C2=52: 

: C3,C4,V4=200 :: T=119 :: V1=43 :: V2=5 

1 ss V3=44 

23042 IF N=S THEN I=146 :: R=143 :: C=41 
3: S1=118 :: S2=120 :: C1=52 s: C2=86 : 

: C3=50 :: C4=84 :: T=l19 :: Vi=S51 :: V2 

=72 3t: V3=S5 :: V4=73 

23252 IF N=6 THEN I=141 :: R=144 :: C=42 
3: S1=118 :: S2=120 :: C1=86 :‘: C2=84 :; 

: C3,C4,V4=200 :: T=119 :: Vi=106 :: V2= 

85 :: V3=107 

23260 IF N=7 THEN I=146 :: R=143 :: C=40 
3: S1=120 :: S2=122 :: Ci=52 ss C2=54 : 

: C3,C4,V4=200 :: T=121 :: V1=44 :: V2=5 

3 33 V3=45 


14 


ROULETTE 


23070 IF N=8 THEN I=141 :: R=144 :: C=41 
s3 Si=i20 :: S2=122_:: Ci=54:: C2=88 : 
: C3=52 #: C4=B6 s: T=121 ss: Vi=53::: v2 

=73 :: V3=87 :: V4=74 

23080 IF N=9 THEN I=146 :: R=143 :: C=42 
33 S1=120 :: S2=122::: Ci=86 :: C2=88 1: 
: C3,C4,V4=200 :: T=121 :: Vi=107 :: V2= 

87 :: V3=108 

23090 IF N=12 THEN I=141 :: R=144 :: C=4 

O :: Si=122 :: S2=124 :: C1=54 3: C2=56 
3: C35,C4,V4=200 :: T=123:: Vi=45 :: VS 

55 :: V3=46 

23100 IF N=11 THEN I=146 :: R=144 :: C=4 
1:13 Si=122 :: S2=124 :: C1=54 :: C2=88 


:: C35=56 ::.C4=90 :: T=123 s: Vi=55 :: V 


2=74 33 V3=89 :: V4=75 
23112 IF N=12 THEN I=141 z:: R=143 :: C=4 
2 33 S1=122 :: S2=124 :3: Ci=90 :: C2=88 


3: C3,C4,V4=200 :: 
=B9 :: VI3=109 
23120 IF N=13 THEN I=146 
0 :: S1=124 :: S2=126 :: 
t: C3,C4,V4=200 :: T=125 
57 33 V3=47 

23130 IF N=14 THEN I=141 :: R=143 :: C=4 
1 :: S1=124 :3: S2=126 :: C1=56 :: C2=90 


T=123 :: ViI=108 :: V2 
:: R=144 
Ci=56 :: 
s: VIi=46 


sz C=4 
C2=58 
V2= 


ss C35=58 :: C4=92 :: T=125 :: Vi=57 ts: V 
2=75 st: V3=91 :: V4=76 

23140 IF N=15 THEN I=146 :: R=144 :: C=4 
2 33 S1=124 :: S25126 :: Ci1=90 :: C2=92 
:: C3,C4,V4=200 :: T=125 :: Vi=109 :: v2 
=91 3: V3=110 

231520 IF-N=16 THEN I=141 :: R=143 :: C=4 
Q :: Si=126 :: S2=128 :: Ci=58 :: C2=60 
3: C3,C4,V4=200 :: T=127 :: Vi=47 ss V2= 
59 3: V3=48 

23160 IF N=17 THEN I=146 :: R=144 :: C=4 
1 31: Si=126 :: S2=1728 :: C1=58 :: C2=92 
::3 C35=60 :: C4=94 :: T=127 :: V1=59 :: V 
2=76 33 V3,V4=77 

23170 IF N=18 THEN I=141 :: R=143 :: C=4 
2 33 S1=126 :: S2=1728 :: Ci=92 :: C2=94 
t: C3,C4,V4=200 :: T=127 :: Vi=110 :: V2 


=93 33 V3elli 

23180 IF N=19 THEN I=146 
0 :: Si=128 :: S2=130 :: 
3: C3,C4,V4=200 :: T=129 
61 3: V3=49 

23190 IF N=292 THEN 1I=141 :: R=144 :: C=4 
1 :: S1=128 :: S2*130 :: C1=60 :: C2=94 

:: C3=62 :: C4=96 :: T=129 :: Vi=61 :: V 


33: R=143 :: C=4 
Ci=60 :: C2=62 
3: V1=48 :: V2= 


2=77 33 V3=95 :: V4=78 

23200 IF N=21 THEN I=146 :: R=143 :: C=4 
2 31: Si1=128 :: S2=130 :: C1=94 :: C2=96 

5: C3,C4,V4=200 :: T=129 :: Vi=sili :: V2 
=95 :: V3=112 

23212 IF N=22 THEN I=141 :: R=144 :: C=4 
O :: Si=1309 1: S2=132 :: C1=62 :: C2=64 

ss C3=64 :: C4,V4=200 :: T=131 :: V1=49 

3: V2=63 :: V3=50 

23220 IF N=23 THEN I=146 3: R=143 :: C=4 
1 3: Si=130 :: S2=132 :: Ci1=62 :: C2=96 

3: C3=200 :: C4=98 :: T=131 ss Vi=63 :: 

V2=78 :: V3=97 :: V4=79 


23230 IF N=24 THEN I=141 :: R=144 2: C=4 
2 33 S1=130 :: S2=132 :: Ci=96 3: C2=98 


Extended ROULETTE 


3: C3,C4,V4=200 :: T=131 :: Vi=si1i2 :: V2 233090 IF N=31 THEN 1I=146 :: R=144 :: C=4 
=97 :: V3=l13 DO :: Si=136 :: S2=138 :: C1=68 :: C2=70 
23240 IF N=25 THEN I=146 :: R=143 :: C=4 ss C3=70 :: C4,V4=200 :: T=137 :: Vi=52 


0 :: Si=132 1: S2=134 :: C1=64 :: C2=66 ss V2=69_:: V3=53 

2: C35=66 :: C4,V4=200 :: T=133 :: Vi=5Q0 Z3310 IF N=32 THEN I=141 :: R=143 :: C=4 
13 V2=65 :: VI=S1 1 :: Si=1i36 s: S2=1358 _:: Ci=68:: C2=102 
23250 IF N=26 THEN I=141 :: R=144 :: C=4 rs: C3=200 :: C4=104 :: T=137 ss: Vi=69: 
1 :: Si=132 :: S2=134 :: C1=64 :: C2=98 : V2=B1 :: V3=103 :: V4=82 

2: C3=200 :: C4=100 :: T=133:: Vi=65::: 23320 IF N=33 THEN I=146 :: R=144 :: C=4 
V2=79 t: V3=99 :: V4=B0 2 33 Si=i36 :: S2=138:: Ci=102 :: C2=10 


23260 IF N=27 THEN I=146 :: R=143 :: C=4 4 :: C3,C4,V4=200 :: T=137 s:: Vi=sii5:: 
2 33: Si=s132 s: S2=134 :: C1=98 :: C2=100 V2=1035 1: VI=116 
:: C3,C4,V4=200 :: T=133 :: Vi=liì3 :: V 23339 IF N=34 THEN I=141 :: R=143 :: C=4 


2=99 :: V3=114 0 :: Sl=138 :: S2,C2,V3,V4;C4=200 :: Ci= 
23270 IF N=28 THEN I=141 :: R=144 :: C=4 70 :: C3=62 ss: T=139:: VIiS53 sz: V2371 
D :: Si=134 :: S2=136 :: CIi=66 tt: C2=68 23342 IF N=35 THEN 1I=146 :: R=144 :: C=4 
8: C3=68 :: C4,V4=200 :: T=135 :: ViI=SSI 1 sz: Si=i38 :: S2,C4,V4=200 :: C1=70 :: 


ts: V2=67 :: V3=52 C2=104 :: C3=62 :: T=139 :: Vi=71 s:: V2= 

23280 IF N=29 THEN I=146 :: R=144 :: C=4 82 :: V35=105 

1 1: S1=134 :: S2=136 :: Ci=66 :: C2=100 23350 IF N=36 THEN 1I=141 :: R=143 :: C=4 
: C3=200 :: C4=102 :: T=135 :: VI=67: 2 :3 S1=138 :: S2,C2,C4,V3,V4=200 :: Ci= 

: V2=B0 :: VI=I0D1 :: V4=81 104 :: C3=62 :: T=139 :: Visilo :: V2=10 

23292 IF N=30 THEN I=141 :: R=143 :: C=4 5 

2 33 S1=134 :: S2=136 :: Ci=100 :: C2=109 23362 RETURN 

2 353 C3,C4,V4=200 :: T=135 st: Vi=i14 :: 

V2=101 :: V3=115 32200 CALL CLEAR :: END 


Questo mese il ’’TI 99 NEWSOFT” compie un anno. 
Quale modo migliore di augurargli lunga vita 
se non quello di abbonarsi? 
Con sole L. 95.000 riceverete 
11 mumeri della rivista e in più avrete diritto 
agli sconti sul software e l'hardware offerto da 


COMPUMARKET 


Per abbonarsi basta inviare 
un assegno non trasferibile o un vaglia postale a 
NEWSOFT snc - Via S. Jacini, 4 - 20121 Milano 
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TI/99 NEWSOFT la prima rivista con casse 


Se avete perso qualche numero, o se non la conoscete ancora 
approfittate delle eccezionali condizioni che TI-99 NEWSOFT 
vi offre in occasione del suo primo compleanno. 


GIUGNO ’84 

Basic-Extendedì: i trucchi, i misteri; Assembler e L/M. 
Giochi: Othello, Nibbler, Cubo Magico, Difesa, 
Galaxy Il, Incontri Ravvicinati. 


SETTEMBRE ’84 

Assembler, Mini Memory: come utilizzare questo modulo 
che apre le porte sul mondo dell’Assembler. 

Inizia la rubrica Impariamo a costruire 

un arcade game: gli sfondi mobili”. 

Giochi: Tennis, Crazy Koala, Pac-Man, Slalom Gigante. 


OTTOBRE ’84 

Char Def. Programma in Extended Basic con il quale 
è possibile definire i caratteri grafici; istruzioni di 1/0: 

Extended: sprites. Statistica. Bioritmi. Equo Canone. 

Giochi: Bomb on New York, Assedio, Yatzee. 


NOVEMBRE ’84 

Modulo Mini Memory (mappa RAM). Come simulare 
gli operatori logici in Basic. Sfondi Mobili. Statistica. 
Giochi: Guardia e Ladri, Lander, Space Invaders, 
Coyote, Gran Prix. 


DICEMBRE ’84 
Basic: gestione dei files su cassetta; Didattica. Merge. 
Giochi: Star Wars, Torre di Hanoi, Notte di Natale, Doni Celesti 


TI >. NEWSOFT 
e - CENSGIMENTO MNMAaAaZIOnNaAarL.E 
SOoFTWAKE PER TI- O 


* SCHEDA INFORMATIVA * 


e — e. im. SPOLA SMI SE E e 
nea e ire ne le na nisi iosa 
1 ng II BRIN e e ie io era. "Tae —_ © e 
Eta‘ Frofessione 


mt. cente cacio cet °° e e e e e et cet crime senni senno anima sasso muase norme evmee avemm srner nima crnrs ssusa senta semina snsme send aense some anne somme nente 
ce meme oe mimie cemie mente imma etnie menti mimie deine amnme demme srime ninna seme nemia vinse drmta mente mmm siiae dense sunie anna suna mene cene cone cinte 
_ = eeene eroe ve nvana senno cuts: verte sura cinte cinte aicro siete cinco mò cucce sec cevne smne sette seseo me no coni see cern) sete cure im mei see te eni cenni drei arte avmei vene svn seme pome somme nemTe see sere arTTI sen srt Ver veve: anves menor nenia arene +00 ser? ce vo mene 
= on nenga come semie cumre siorì necie seme snnia vinio nati socie crime acini crime somma sem senno sronì aniei sonni eni cene cere seni cene: cron smnme seme smee sevee armi arnio anni aneoe veni memi suini sven somma senno pvnia mena smmme semr7 reni nesae mevni amami seine nanna pome veni sem e i 


Che tipo di registratore a cassette usi ? 


CEPrcgoehk 10-11 F#)i Miggioreente 9 osi isti el 
Ci sono delle periferiche o degli accessori che vorresti ac- 
quistare ma non riesci a trovare ? 


e e ee e ore tei mei VERTE TETTI PESTE MATTI CRIME SIRCI SUCRI LULU: SUdi2 ALULI MILLS lucio ci ms0 dici dica dirti Siano miste nto unto nie nie mine ceo cio ci e e e e e e e ee e 


Ci sono dei programmi particolari che vorresti acquistare 7? 
1) 
2) 


a) 


| cere omne erre enree meno scema venni cenni unici vusce sarei vneni su00i sensi anita asia sinni secri cinesi sic sine cent. sensi cinte since ninio —one —m nono ie simon sinoo aenre cvene seno como sen sei ni eo i + Ie ee e e ar n vee iene nie ne ee 
mune: sonia sunto cicre sinti cucce sarto simo sinto conte ciemi nenr- mere sv ance: cnvor carme come peso nume certe nie nunni smimi veeni donne vermi creme cer venia ver ente venti corni memi semi vonse vere con nom arir ven sesmI seror cene TERI venne par mm nia srmmI Pemme invio svme senta mena sense sane: 


Mt PTTTE PIENI ETTI PIUMA MTTRÌ STIRO AUERÌ PETRA Inte ImQtA suoni rueno inisi anini ansie tan2+ dunci sn00) se0o0 suine sur0: rttie c0r0ì atti simti nenti atei dina senta sasa mento sinto asce nonna autri s0ri) coste mise seme arnie menti suini cene cnter anime cme ini mene omen ceene cmene cre pre vene ponro cere 


Hai intenzione di acquistare un altro computer ? 
et I: o. cer ese o __@«  . aio 6a alert sa eta 
Erga ono: 7a rosse i a lettarpronrcando Got 
In tal caso, pensi di disfarti del tuo TI-99 


i ti ti i i ne ei e i 


Da quanto tempo conosci TI-99 NEWSOFT © 
[GR #10 IR) NSDULO a conoscenza: Pi; o a ue del det 
Sei abbonato ? Hai intenzione di abbonarti ? 


Aldini Lula SRici daimà dille Laind Sulla Miane Shilà di mho dilda dodai durte suime dieta cont dir dante cncne età 


Cosa: ne pansi dell'abbonamento # —_ et» eau zl Lil Lia 
Hai delle proposte per migliorare la rivista ®© 00/0 


diflibiz:bizia:z:;a.&izidizii disibiziate. didibia.aizidieidnai gie gia sega ieitidicitei gilde ti gidieieiieigititti 


TI-SG_NEWSSOFT 
de CENSIMENTO NOZIONALIE 
GOFTWARE PER TI- PP 4h 


* SCHEDA PROGRAMMA * 


CCKFX ]}O0OCO(C]®”-..> Genere: madison ne 
si 


_TI-Basic [1] Mini Memory 
I Extended Basic C] Floppy Disk 
JI Ext. Basic + 32K ba Ae ei 
] Programma originale Ci) Tradarione: da' ___.___iuidu 


dmnnr sratm ronro smrer certo core cern SIbIE data sundr cmmme srime made mento miete sitse sunda cnmna sone 
Sunit INTE CIDdÒ GINIO CNISÒ SUE SUITE TETI GENTE CRETE SITR GATTO CRDIE SEDÌI SITI SITE RITI SIIIO CIDIN CINTO ISIN DITTE Sinsd SISTE FISTO dISID SITO GENTE SENIO SUITE Giama sense conte Giuro bitte GiiIO Sasso SosRE CONTE SEIEI SENSO Unbuò Brato Gist ciato casca susa coeso 
ec 
(MOON quan senso anse vete atom prova iuane dote desto censo Guase stone aveva crema ance vusmI SEtDE PenTE REETO udde dimir diStO stese sense Guete negio senza SIETE NINE SRmte Notmp dude Gilde Giano dense custa nima Gurnr suore nismo sorso desto diino scene somma asino ensne vnupa verme dueno destò qosso senva suene cunsa vaice «asse 
I I date dire arene Sito epsO cdi deine crt UNNI CEND ESA SEDIE PESTE PETTO VPSDI SEITE FOSSI CORSI CONTO UNNI SESSO SRIER SOTA AIA ISTE SONDE FERRI SOITI SINIS dINSO RA Sade III IO PONTI. PSI SODI GRIS VISIS SENTE deco GEIE SERIO GOLNO Gisde Gvbse Grado cosmo cusa curo vasca cossa versa «useò 
SO Suto+ Aunsè sante 1000) sieve croce cenno senso cuans sorse aneme casse VUNDA SPERI DPNTS dindo Sinde CITÙO GISÙÌ SIISI dIudi Sasso cere: SRssE SEITE CERTI Suono uIdE SBIDP dRIdI dea Abita SnssS SOsSS Semmo Tpsmi vusDI SevID SUIdO dbica Bitta BAGNI SRSSE essa SRtIm SONIA CINTO GUIDO Passo somma asovo venue varzo cute» vnsso dosso cusss 
meme seen ente metin ente Sii pinta dura CASSE AERNE SEMIE LENTE MONTE MEDIA Duomo imma “Sire Pavsò siete podio Sila dude NIdda RETTE nnnim memTD nrmIT mimmo metin starò vunsa suine suasi sunde anne ninna ninte note cite cotti santa auana smana aut nume aurnt tute cnene dani sacd dune nume uno mme arnie svtne nere stese 
mare conse conto 
_ Mn alare preso avre cino sesto putne coeso cento sobsa suono SONE SETTE PRENDE SPINE SIDDI SPORE DINTO dIDtO BITTO Sue SATA SRI SIE SIEDO SENTE SUITE TONDI SOTTO RITO date Sento SRI Suona PERINI VETRO IERI DIRO PALTD GRdRd SERIO dna dito vence cunca santo passo Sunia Sinta Simo sione cnsne sasa svn sstsa Sasso «raso secca canta 
- Mato ciare canto senoe sensa meene aston sasee meine senno Gunn seno capre darne desto genna suete dieta sense arene siena Spdtm DIVI SENTI donde ditte SONNO date ne dano cage resea magia vtmm vene diin veti delta desta emana camma enzo uanì veni suina drsni suite cassa musta sita negra messo siasi visi sesti tetta ceaca vee cm 


Cognome: Nome "Ilie RI 


ammi sanza anime s00m sine vinte seme sro cite eta cinto dacia Sidia Gutnm sm0mE Srvna sbrvI venne venne sernr seen 


Via M. 


dINbo dedi) dedse Giona cneme anmma danze SsUre CEITO SimTS debìe crete donne GiITE Sisto SIUTO Sikta RANIS SENEE RENIE SIESA SIEDO PudIÒ Gost» disco dute duiai deste Sidia Siam SEDIE snamI PoDDI duito divas dedeò SASSO Sassa sous emme ssemD Stom esura conta Giovo cessa nr iero —0eni ceite casse mene 


Il sottoscritto, estensore del programma summenzionato, 
dichiara sotto la sua responsabilita’ che detto programma e‘ 
stato da lui elaborato nel rispetto delle norme che regolano 
la tutela dei diritti d'autore. 

Riconosce inoltre alla Newsoft, il diritto di valutare a suo 
insindacabile giudizio, l'inserimento o meno del programma 
in catalogo e l'eventuale revisione del compenso da lui sta- 
bilito, al fine di calmierare i prezzi sui valori di merca 
Allega la somma di L. 5200 in francobolli per la prima sche- 
da e L. 2000 per ogni scheda successiva, quale contributo 
per le spese di edizione del catalogo, che la Newsoft si im- 
pegna ad inviare a tutti i partecipanti all'iniziativa. 


E 8 og 11 ARIA ARE E 
(Se minore, firma del padre) 


il tuo TI-99/4A COMPIE UN ANNO!!! 


1 Numero arretrato L. 15.000 
4 Numeri arretrati L. 40.000 
1 Copia saggio a nostra scelta L. 5.000 
Tutti i 10 numeri già usciti L. 80.000 


GENNAIO ’85 

Hardware: come usare la memoria da 32K esterna. 
Assembler e L/M: il Multicolor. Mini Memory: ROM. 
Archivio scacchistico. Statistica. 

Giochi: Battaglia Navale, Poker, The Cave. 


FEBBRAIO ’85 

Extended + 32K: il modo per programmare in L/M. 
Merge: Merge per la Mini Memory. Statistica. Didattica. 
Giochi: Il castello notte scura, Lunar Lander, Rockfeller. 
Programma musicale. 


MARZO ’85 

Come si può elaborare un programma Assembly in L/M. 
Writer Loader: carica in memoria 

sottoprogrammi in L/M. Statistica. MCP: Sistema 

di archiviazione programmi. Giochi: Hot Dog, Strike Defence, 
Missile Command, Nibbler in Basic. 


APRILE ’85 

Extended Basic + Espansione 32K. Le ROM, PROM 
e EPROM, cosa sono e come lavorano. Arcade Game: 
i comandi. Mini Memory: Alta Risoluzione. Didattica. 
Recensioni: Up Periscope. 

Giochi: Robotime, Avventura nel calcolatore. 


MAGGIO ’85 

Basic: come sfruttare i tasti di controllo della tastiera. 
Extended + 32K: come ottenere il text mode + tre nuove 
istruzioni. TI-99-4/A: esaminiamo la ’’carrozzeria’’ 

del TI-99. Statistica. Aiuto alle decisioni: un programma 
che vi guiderà all’acquisto di un’autovettura. 

Recensioni: Snow Trek. Giochi: 3-D Monsters Manor. 
Bouncer, Album: per bambini in età prescolare. 


îserita nella rivista. 


Vi proponiamo il veterano gioco del 15, la classica tavoletta con i numeri mobili che tutti noi abbiamo avuto 
tra le mani almeno una volta, magari durante un noioso viaggio in treno o in una notte d’insonnia. 
Usando E,S,D,X, e con il tasto ALPHA LOCK inserito, possiamo spostare, uno alla volta, i quattordici nu- 
meri disposti casualmente nelle quindici caselle del quadrato, ed ogni vostra mossa verrà meticolosamen- 
te segnalata sul video, in modo che, se lo desiderate, potete organizzare dei veri e propri tornei di 15 diret- 
tamente a casa vostra. 


CALL CLEAR 
PICIDE. L. BIOLO DEL das 1 RS 


PRINT." E LAS 


Di IR 4 


7 PRINT " inserire -ALFHA LOCK-" 
9 FOR T=1 TO 900 

11 NEXT T 

13 CALL CLEAR 

17 CALL CHAR(46, "AD00000000FFFFFF") 
19 CALL CHAR(42, "A000000000FFFFFF") 
21 CALL CHAR(44, "CACOCQC0C0C2C0C2") 
23 CALL CHAR(45,"") 

25 CALL CHAR(47, "COCOCOCOCOFFFFFF ") 
27 CALL CHAR(58, "A0ZEGAZAZAZAZENO") 
29 CALL CHAR(59, "R0246C2424242400") 
31 CALL CHAR(60, "A0ZE6AZZPER82ENO") 
33 CALL CHAR(61, "002E622622222E02") 
35 CALL CHAR(62, "AA2B68282A2E2200") 
37 CALL CHAR(63, "A02E682E22222E00") 
39 M=-1 

41 CALL HCHAR(1,1,45,1200) 

43 Y=65 

45 FOR T=1 TO 12 STEP +3 

47 Y=Y-1 

49 FOR H=1 TO 12 STEP +3 

S1 IF H=1 THEN 55 ELSE 53 

53 V=Y-1 

55 CALL HCHAR(4+H,9+T,Y+F) 

57 CALL SOUND(30,-1,1) 

59 NEXT H 

61 NEXT T 

53 CALL HCHAR(5,10,127) 
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Ti Basic IL GIOCO DEL 15 


65 CALL HCHAR(3,9,42,12) 
67 CALL HCHAR(6,9,46,13) 
69 CALL HCHAR(9,9,46,13) 
71 CALL HCHAR(12,9,46,13) 
73 CALL HCHAR(15,9,42,12) 
75 CALL VCHAR(4,9,44,12) 
77 CALL VCHAR(6,9,47) 
79 CALL VCHAR(9,9,47) 
81 CALL VCHAR(12,9,47) 

3 CALL VCHAR(15,9,47) 
85 CALL VCHAR(4,12,44,11) 
87 CALL VCHAR(6,12,47) 
89 CALL VCHAR(9,12,47) 
91 CALL VCHAR(12,12,47) 
93 CALL VCHAR(15,12,47) 
95 CALL VCHAR(4,15,44,11) 
97 CALL VCHAR(6,15,47) 
99 CALL VCHAR(9,15,47) 
101 CALL VCHAR(12,15,47) 
193 CALL VCHAR(15,15,47) 
105 CALL VCHAR(4,18,44,12) 
127 CALL VCHAR(6,18,47) 
199 CALL VCHAR(9,18,47) 
111 CALL VCHAR(12,18,47) 
113 CALL VCHAR(15,18,47) 
115 CALL VCHAR(4,21,44,12) 
119 ME#="MOSSA n_" 

121 FOR A=1 TO 8 

123 CALL HCHAR(22,2+A,ASC(5EG$(ME#,A,1)) 


125 NEXT A 

127 FOR T=2 TO 14 STEP +3 
129 FOR H=10 TO 21 STEP +3 
1351 CALL GCHARCT,H,L) 

1353 IF L=127 THEN 139 

135 NEXT H 

1357 NEXT T 

139 CALL SOUND (5,470,1) 
141 M=M+1 

143 M#=STR£#(M) 

145 FOR P=1 TO LEN(M£) 

147 CALL HCHAR (22, 12+F ,ASC (SEG& (M£,F,1)) 


149 NEXT F 
151 CALL KEY(2,K,8) 

153 CALL HCHAR(22,4,126,6G) 
155 IF S=2@ THEN 151 

157 IF K=69 THEN 167 

159 IF K=B3 THEN 177 
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Ti Basic IL GIOCO DEL 15 


161 IF K=88 THEN 197 

163 IF K=68 THEN 187 

165 GOTO 151 

167 CALL GCHAR(T+3,H,L; 

169 IF (L=45)+(L=44)+(L=47)THEN 151 
171 CALL HCHAR:T,H,L) 

173 CALL HCHAR(T+3,H,127) 

175 GOTO 115 

177 CALL GCHAR(T,H+3,L) 

179 IF (L=44)+(L=45)+(L=47)THEN 151 
181 CALL HCHARC(T,H,L) 

183 CALL HCHAR(T,H+3,127) 

185 GOTO 115 

187 CALL GCHAR(T,H-3,L) 

189 IF (L=45)+(L=44)+(L=47)THEN 151 
191 CALL HCHAR(T,H,L) 

193 CALL HCHAR(T,H-3,127) 

195 GOTO 115 

197 CALL GCHAR(T-3,H,L) 

199 IF (L=45)+(L=44)+(L=45)THEN 151 
201 CALL HCHAR(T,H,L) 

203 CALL HCHAR(T-3,H,127) 

205 GOTO 115 


OFFERTA SPECIALE 


è pronto finalmente il manuale 
per l’extended basic in italiano! 


ORDINATELO CON LA CARTOLINA 
DEL COMPUMARKET 


L. 20.000 (abbonati L. 18.000) 


In questo videogame impersonate un piccolo ma tenace koala, che vuole a tutti i costi raggiungere la sua 
compagna in cima ad una pericolosa impalcatura. Dall’alto un koala rivale cercherà di impedirvi l'ascesa, 
facendo cadere pesanti massi blu. A voi il compito di evitarli, cercando anche di cogliere lungo il percorso 
quanta più frutta possibile. Oltre a dover evitare i colpi dell’avversario in alto, ogni tanto un grosso corvac- 
cio giallo interromperà il vostro cammino, tentando di beccarvi sul collo. Non vi rimane che scappare, sa- 
lendo o scendendo le scale il più in fretta possibile, o addirittura saltando. 

Il gioco è a tempo, allo scadere del quale perdete punti e koala. Per ogni koala raggiunta guadagnate 
punti e passate immediatamente ad un nuovo schermo, sempre più veloce e pericoloso. 

ll movimento del koala avviene premendo i tasti E,S,D,X (maiuscoli), secondo la direzione delle frecce. 
Per saltare usate J, tenendo presente che il salto dura qualche frazione di secondo, durante la quale non 
siete in grado di correggere il movimento del vostro piccolo eroe. 


100 REM *****CRAZY  COALA*** 
112 CALL CLEAR :: GOSUB 1510 

1220 A1%="2000006090979DEFEFDFB371F1F1D183 
20000000000000000F DF8FCFEFFFF1E7C" :: CA 
LL CHAR(96,A1£) 

132 A2$="00000C12127EDCFEFF7F3F1F1F1F3B6 
200000000000000F 0F8FCFCFEFEE78101" :: CA 
LL CHAR(1220,A2£) 

1420 A3*="20000000000000000F 1F3F7FFFFF783 
E00006090909E7B7FBFDEECF8F8B8182C" :: CA 
LL CHAR(124,A3£) 

152 A4%="200000000000002071F3F3F7F7FE7818 
200003048487E3B7FFFFEFCF8F8F8DC06" :: CA 
LL CHAR(108,A4£) 

160 AS*="@C1F1F0F0723373F1F0F27373F1F0FQ 
Q30F8F8F0E0C4ECFCF8FDE4ECFCF8F" 1: CALL 
CHAR(112,A5$) 

170 A6$="Q033C767F3E4DEBF77F3F27032000000 
2804280000080 C0E0F8F8F8F838182C04" :: CA 
LL CHAR(116,A6$) 

182 A7*="21020100000103071F1F1F1F1C18302 
QC03C6EFE7CB2D7EFFEFCEOC" :: CALL CHARCI 
20,A7%):: AB$="102028686C0B3332200020000000 
2200000000220000000022020202" :: CALL CHAR 
(72,A8£) 

192 A9#="24020206060E1C720202200220000002000 
20000020000000000000" :: CALL CHAR(76,A9$ 
) 

200 A10*="10087EFFFFFF7E3C2200200000020000 
0000200000000000200022" :: CALL CHAR(82,A1 
D$) 


Extended CRAZY KOALA 


2120 Bi*="04083ES5D3E3E3E1C220002002000000000 


20000002002000200000020" :: CALL CHAR(84,B1# 
) 

220 B2$="08121203C7E7E7E3C200000000000000 
N0022020000020000000000" :: CALL CHAR(88,B2 
F) 

230 B3*="08122844E4EE4E040020000000000000 
20000020200202000200020000" :: CALL CHAR(92,B35 
F) 


240 B4*="1010387C387C7C380020000200002000 

020200000002202000020000" :: CALL CHAR(68,B4 

F) 

250 BS#="M081038387C7C7C3B20002000000000000 

00000200000200002002000" :: CALL CHAR(140,B 

È ) 

260 Bb#="M02000200002000000003R6FFFFF770000 

00000000000000031FFEFDFFFFFF" :: CALL CH 

AR(124,B6£) 

270 RB7#="M00000000000000003B6FFFFF772000 

00000000606 1E3E7CF8F1FFFFFFF" :: CALL CH 

AR(128,B7#£) 

280 H8$="20060603052703 :0D1E3F 37373636362 

6b006062C0ADENCOB078FCECEC6CH8C6C64" :: CA 

LL CHAR(132,B9P£) 

290 B9*="M00200609092D02070D1E3F3F3FI3FS3F1 

DM002029182424ECD0F0F2D930F2D9DOD2DO" :: CA 

LL CHARC1365,B9£) 

320 BI10*="0000000003070F 1F 3F3F3F3FIFIF1F 
C 


0F292000000E0F09F8FBFCFCFCFCFCFB8FD0EO" :: 
ALL CHAR(3S6,B10$) 

319 CALL CHAR(40, "FF8080FFFF8080FF")s:: C 
ALL CHAR (41, "FFQ0101FFFFQ101FF"):: CALL C 
HAR (45, "FFFEFFFEFFFEFFFE") s CALL CHARC(4 
6g APERTPFPAPRPIEPEeT) 

3209 CALL CHAR(42, "B0C0FFFFFFFFFF80"):: C 
ALL CHAR(435, "Q1035FFFFFFFFFFO21"):: CALL C 
HAR (44, "09000FFFFFFFFFFFFE") ss: CALL CHARCGS 
Ae "FCPEFFEFFEFEEFEFG" ) 

3359 CALL CHAR(3S,"3F7FFFFFFFEFF7ZFESF") ss: C 
ALL CHAR(S8, "20000000000000FF"):: CALL C 
HAR (59, ‘"a0200000020000FF " ss CALL CHARC6& 
2, "A0220000200000FF ") 

449 CALL CHAR (61, "090000000FF"):: CALL CH 
AR (62, "900000FF"):: CALL CHARCGI, "B000FF 
"sa CALL CHARC(64,"00FF"):: CALL CHAR(65 
s"'FF"):: CALL CLEAR 

359 CALL MAGNIFY (3): CALL CLEAR s:: CALL 
SCREEN(1):: FOR DRI=1 TO 14 :=: CALL COL 
OR(DRI,6,1):: NEXT DRI 
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Extended CRAZY KOALA 


360 FOR A=1 TO 15 STEP 2:: FOR F=1 TO 2 
:: CALL HCHAR(23,1+(A+F) ,57+(A+1)/2):: 

MEXT Fs: NEXT A 

3709 FOR A=1 TO ii STEP 2:: FOR F=1 TO 2 
:: CALL HCHAR(22,17+(A+F) ,57+(A+1)/2):: 
NEXT F sz: NEXT A ; 

382 FOR A=si TO 15 STEP 2:: FOR F=1 TO 2 
:: CALL HCHAR((14,1+(A+F) ,57+(A+1)/2)t: 

NEXT. F es NEXT A 

5929 FOR-A=i TO-11 STEP 2.::. FOR F=1. TO 2 
:: CALL HCHAR(13,17+(A+F) ,57+(A+1)/2):: 
NEXT Fosse NEXT A 

400 FOR A=1 TO 15 STEF 2:: FOR F=1 TO 
:: CALL HCHARCOG,1+(A+F) ,57+(A+1)/2)t: 

EXT Fs: NEXT A 

419 FOR A=1 TO 11 STEP 2:=: FOR F=1 TO 
:: CALL HCHAR(S5,17+(A+F) ,57+(A+t1)/2):: 

NEXT F ss NEXT A 

420 FOR A=i TO 15 STEP 2:: FOR F=1 TO 
ss CALL HCHARC(18,1+(A+F) ,66-(A+1)/2):: 

NEXT F sz: NEXT A 

43529 FOR A=i TO 11 STEP 2:=: FORF=1 TO 2 
:: CALL HCHARC(19,17+(A+F) ,66-(At1)/2)t: 
NEXT F ss: NEXT A 

449 FOR A=1 TO 15 STEP 2.z:: FOR F=1 TO 2 
:: CALL HCHAR(109,1+(A+F) ,66-(A+1)/2):: 

NEXT F sz NEXT A 

459 CALL HCHAR(3,25,65,5) 

469 FOR A=i TO 11 STEP 2c:: FORF=1 TO 2 
:: CALL HCHAR(C(11,17+(A+F) ,66-(A+1)/2):: 
NEXT F sz: NEXT A 

470 CALL VCHAR(1,1,46,24):: CALL VCHARCI 

,2,45,24):: CALL VCHAR((1,31,46,24):: CAL 

L VCHAR(1,32,45,24) 

489 CALL VCHAR(19,17,429,4):: CALL VCHAR( 

19,18,41,4):: CALL VCHAR(15,3,40,3)s: CA 

LL VCHAR(15,4,41,3):: CALL VCHAR(11,21,4 

D,3) 

4929 CALL VCHAR(11,22,41,3):: CALL VCHAR( 

7,5,340,3):: CALL VCHAR(7,6,41,3)t: CALL 

VCHAR (3,23,49,3):: CALL VCHAR(3,24,41,3) 

S599 CALL SPRITE (#1,92,7,150,42):: CALL S 

PRITE (#2,72,8,152,120):: CALL SPRITE (#3, 

76,11,1109,96):f CALL SPRITE (#4,80,9,120, 

232) 

512 CALL SPRITE (#5,88,12,82,32):: CALL S 

PRITE (#6,88,10,82,128):: CALL SFRITE (#7, 

88,4,52,88):: CALL SFRITE (#8,140,11,56,2 

32) 


Zh) 


La 


PI 
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Extended CRAZY KOALA 


529 CALL SPRITE(#9,68,4,17,40):: CALL SF 

RITE (#10,84,19,17,112):: CALL SPRITE (#11 
,132,11,1,1229):: CALL SPRITE (#12,136,16, 
1,216) 

539 CALL SPRITE(#13,104,16,168,17):: RAN 

DOMIZE :: IF XZ=0 THEN SF=15 _:: L=1: 

=166 tt: Y=17 ss: PL=2 ss: PR=-2 ss TF=2 
E=1l :: G=1i :: BONUS=2500 :: TIM=0 :: 

ORE=2 :: KOALA=3 

549 DISPLAY AT(24,1)SIZE (5) SCORE :: DIS 

PLAY AT(24,12)SIZE (5) :BONUS :: DISPLAY A 
T(24,20)SIZE (2) :KOALA 

5529 CALL SPRITE(#15,36,14,1,14,5F,09) 

569 CALL KEY(9,K,5):: IF 5<>2 THEN GOSUB 
690 

579 CALL COINC(#13,#15,13,C):: IF C=-1T 

HEN 8302 

5809 CALL POSITION(#15,M,N):: IF M>164 TH 

EN GOSUB 670 

592 CALL KEY(0,kK,5):: IF S<>Q THEN GOSUB 
690 

699 CALL COINC(#13,#15,13,C)ss IF C=-1 T 

HEN 830 

619 IF T=0 THEN A=INT(RND*5):: IF A=1 TH 

EN 750 

&20 IF T=i THEN CALL POSITION(#14,0,F):: 
IF P<20 THEN CALL DELSPRITE (#14):: T=9 

ELSE 630 

630 IF T=1 THEN CALL COINC(#13,#14,129,C) 
*: IF C=-1 THEN 830 


642 IF T=1i THEN TF=-TF s: CALL FATTERN(# 


14,126+TF) 

650 B=B+1 :: IF B=7 THEN B=i :: BONUS=BO 
NUS-100 :: DISPLAY AT(24,10)SIZE(5) : BONU 
5: :: IF BONUS=2 THEN 8302 ELSE 560 

662 GOTO 560 

570 Q=INT(RND*2220)+1 :: CALL LOCATE (#11, 
1,0): CALL LOCATE (#15,14,0):: CALL KEY( 
Q,kK,5):: IF S<>@ THEN GOSUB 690 

682 RETURN 

692 IF K=68 THEN 910 

700 IF K=83 THEN 960 

712 IF K=69 THEN 1010 

720 IF K=74 THEN 1220 

739 IF K=88 THEN 1140 

749 RETURN 

750 H=INT(RND*5)+1 :: T=1 :: IF H/2=INT( 
H/2)THEN I=1 ELSE I=-1 

762 ON H GOTO 770,780,7920,820,8102 

770 LD=20 :: GOTO 820 
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Extended CRAZY KOALA 


780 LD=67 : 

799 LD=B3 rs: GO0T0 820 

809 LD=134 ss: GOTO 820 

819 LD=154 cs: GOTO 820 

820 CALL SFRITE (#14,128,11,LD,249,1,-12) 
:: G0T0 6520 

83509 CALL MOTION(#13,29,0,#15,0,0):: IF T= 
1 THEN CALL MOTION(#14,2,2) 

842 KOALA=EDALA-1 :: DISFLAY AT(24,20)SI 
ZE (2) :EDALA rr: Cé£="'0920200000000000F 180F000 
V00F3F7FFFFF202020000000000F 0918F00000FQ0FCFEF 

FFF" rr CALL CHAR(C(104,C#£):: CALL FATTERN 
(#B13,104) 

859 CALL SOUND(750,175,1,349,1):: CALL S 

OUND (700, 220,1,449,1):: CALL SOUND(3D0,2 

08,1,415,1):s CALL SOUND(300,247,1,494,1 
) 

8609 CALL SOUND (800,175,1,349,1):: 

ELSPRITE (#13,#14,#15):r: B=1 s: XZ= 

=168 :: Y=17 :: BONUS=2500 :: L=1 
s: E=l s: DISFLAY AT(24,10) SIZE 5): BONU 

S 

870 CALL CHAR(C(124,A3£):: IF KOALA=D THEN 
1390 

882 CALL SFRITE (#13,1094,16,X,Y):: GOTTO 5 

1” 

8909 CALL MOTION(#13,12,2) 

920 CALL POSITION(#13,EO0,KEI)s: IF KO3172 
THEN B30 ELSE 900 

712 FR=-FR :: CALL FATTERN(#13,1026+FR):: 
G=6+1 :: IF G6=3 THEN G=1 

9229 IF 631 THEN 9402 

930 IF L/A2=INT(L/2) THEN F=1 ELSE F=-1 

940 X=X+Fo_:: F=09 _:: Y=Y+8 :: DIR=1 :: IF 

*249 THEN 892 

759 CALL LOCATE (#13,X,Y):z: RETURN 

960 PL=-FL :: CALL FPATTERN(#13,98+FL):: 

G=6G-1 :: IF G=029 THEN G6=3 

970 IF G:>2 THEN 992 

9829 IF L/2=INT(L/2) THEN F=-1 ELSE F=1 

990 X=X+Fo_:: F=0 o _:: Y=Y-8 _:s DIR=-1:: I 

F_ Y=7 THEN 892 

1000 CALL LOCATE (#13,X,Y)::s RETURN 

1010 NB=1:: ON L GOTO 1090,1100,1110,1il 

20,1132 

10920 IF Y£3>LL THEN RETURN 

1030 CALL PATTERN (#13,112):: CALL MOTION 
(B13,-8,02) 

12949 CALL FOSITION(#13,V,W):s: IF Va=stT-1 
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GOTO 820 


Extended CRAZY KOALA 


2 THEN X=X-(LB-LT):: CALL MOTION(#13,0,0 
) 33 CALL LOCATE (#13,X,Y):: CALL PATTERN( 
#135,96):: L=L+1 ELSE 1060 

1050 IF L=é THEN 1420 ELSE RETURN 

1060 CALL COINC(#13,#15,13,C):: IF C=-1 
THEN 839 

1070 IF T=1 THEN CALL COINC(#13,#14,10,C 
):: IF C=-1 THEN 832 

1082 GOTO 1040 

1090 LB=178 :: LL=129 :: LT=145 :: IF NB 
=1 THEN 10920 ELSE 1160 

1100 LB=137 :3 LL=17 ss LT=112::s IF NB= 
1 THEN 1020 ELSE 1160 

1110 LB=102 :: LL=i61 :: LT=80 :: IF NB= 
1 THEN 1020 ELSE 1160 

1120 LB=76 :: LL=33 :: LT=50 :: IF NB=1 

THEN 1020 ELSE 1160 

11350 LB=37 :: LL=177 :s LT=16 ss: IF NB=1 
THEN 1220 ELSE 1160 

1142 IF L=i THEN RETURN 

1150 NB=0 :: ON L-1 GOTO 1090,1110,1120, 
1130 

1160 IF Ya>LL THEN RETURN 

1170 CALL FATTERN(#13,112):: CALL MOTION 
(#13,8,92) 

1182 CALL POSITION(#13,V,W):: IF V=LB-16 
THEN X=X+(LB-LT):: CALL MOTION(#13,2,02) 
1: CALL LOCATE (#13,X,Y):: CALL FATTERN(# 
135,1094):: L=Ll-1 :: RETURN 

1190 CALL COINC(#13,#15,13,C)s:: IF C=-1 

THEN 830 

1200 IF T=i THEN CALL COINC(#13,#14,12,C 
s: IF C=-1 THEN 830 

1219 GOTO 1180 

1220 SPi=L*2-1 :: SP2=L*2 :: IF DIR=-1 T 

HEN CALL FATTERN(#13,116)ELSE CALL FATTE 

RN(#13,122) 

12352 CALL MOTION(#13,-8,0) 

1240 IF T=1 THEN CALL COINC(#13,#14,12,C 
)s: IF C=-1 THEN 8350 

1250 CALL COINC(#13,#15,13,C):: IF C=-1 

THEN 8302 

1260 CALL COINC(#13,#5P1,8,C0):: IF CO=- 
1 THEN 1300 

1270 CALL COINC(#13,#5P2,8,C0I1):: IF COI 

=-1 THEN 1300 

1280 CALL POSITION (#13,V,W.=::s IF Va=X-20 
THEN 1340 

1290 GOTO 1240 


Extended CRAZY KOALA 


13592 IF CO=-1 THEN CALL DELSPRITE(#S5F1): 
» JR=SCORE :: SCORE=SCORE+SF1*50 ELSE CA 
LL DELSPRITE (#5F2):: JR=SCORE :: SCORE=S 
CORE+SP2*50 
1310 CALL SOUND (220,110209,1):: IF JR:12000 
0 AND SCORE>1292020 THEN SCORE=SCORE-120000 
ss TIM=TIM+10000 
13522 IF HB=1 THEN RETURN ELSE HB=0 
15359 DISFLAY AT(24,1)SIZE (5): SCORE 
1549 CALL MOTION(#13, 8,2) 
1550 IF T=1 THEN CALL COINC(#13,#14, 12,C 
)s:s IF C=-1 THEN 830 
1562 CALL COINC(#13,#15, 15,0): IF C=-1 
THEN 832 
1370 CALL FPOSITION(#13,V,W.:: IF VE 
HEN 1350 ELSE CALL MOTION (#13,29,0): 
L LOCATE (BI13,X,Y) 
1382 IF DIR=1i THEN CALL PATTERN (#13,104) 
3: RETURN ELSE CALL FPATTERN(#13, 96) s: RE 
TURN 
1590 CALL CLEAR :=: CALL CHARSET :: FOR C 
OL=1 TO 8 :: CALL COLOR (COL,16,1):: NEXT 
COL :: CALL SCREEN(5) 
1400 CALL DELSPRITE(ALL):: XZ=0 :: PRINT 
"PUNTEGGIO: "; SCORE+TIM:"": "ty un, "PREMI 
« ENTER è FER GIOCARE": "gna nn, n 
1410 INFUT ANS£ :: GOTO 120 
1422 CALL EEY(Qd,k,S):: IF Kk=68 THEN GOSU 
EB 9120 ELSE 14202 


X-3 T 
* CAL 


1452 CALL DISTANCE (#13,#12,DIST):: IF DI 
ST=95029 THEN 1420 
1449 FOR Si=1 TO 27::: READ D,E :: CALL 


SOUND (D,E,0):: NEXT S1 

1452 SCORE=SCORE+BONUS :: DISPLAY AT(24, 
1) SIZE (5): SCORE 

1462 DATA 150,294, 150,330,1520,349, 150,39 
2,150,440,150,440,300,440,150,523,150, 4% 
©,152,4420,150,392 

1472 DATA 300 1442, 300,442,150,466,150,39 
2,150,392,150,392,150,440, 150,349, 150,14 
9,150,349,150,442 

1482 DATA 150,392, 152,349,150,330,300,29 
4,300,294 


1499 RESTORE 1460 :%: XZ=1 rs: Y=17 s: X=1 
68 :: BONUS=2500 :: L=1 :: G=lo:s: E=1s: 
IF SP+5352 THEN 500 ELSE SP=SP+?2 


1500 GOTO 500 

1512 DISFLAY AT(12,9): "CRAZY EDALA":"""T 
AB(11);"(@) 1984" 

1520 RETURN 


27 


TI-99 ComPiUmaRrket 


Per far fronte alle sempre più numerose richieste che ci arrivano, 7/-99 comPIUmarket amplia 


il suo catalogo di vendita per corrispondenza. 


TI-99 comPlUmarket ricerca e seleziona per voi tutto il software e l'hardware disponibile per il 
TI-99/4A, nonché tutti gli accessori necessari alla gestione e alla manutenzione del vostro com- 
puter, proponendovi nuovi aggiornamenti ogni mese, con condizioni particolari per gli abbonati 
a "’TI-99 NEWSOFT”' (il secondo prezzo si riferisce a tali condizioni). 
Tutti i prezzi sono comprensivi di IVA, ma escludono le spese di imballo e spedizione. Potrete 
effettuare il pagamento in contrassegno al ricevimento della merce. Per le ordinazioni, utilizzate 
la cartolina allegata alla rivista. 


Consolle Home 
Computer TI 99/4A; 16 bit; 
16 KBytes; completo di ali- 
mentatore e modulatore TV, 


HW-01: 


con due moduli gio- 
co/educativi. 
L. 255.000/235.000 


HW-02: Espansione di me- 
moria 32 KBytes RAM. Si 
applica direttamente al com- 
puter e consente il collega- 
mento in cascata di altre 
periferiche. 

L. 240.000/220.000 


n HW--03: Interfaccia parallela 


con uscita standard Centro- 
nics; collegabile a tutte le 
stampanti in commercio. 
L. 225.000/210.000 


HW-13: Cavo di collegamen- 
to Interfaccia parallela/stam- 
pante: lunghezza mt. 1. 

L. 40.000/37.000 


+ 


MD-02: TI LOGO (Mondado- 
ri) in italiano con manuale. 
L. 210.000/190.000 


MD-01: Modulo Extended 
Basic con manuale in ita- 
liano. | 
L. 210.000/190.000 


'TI-99 COMP 


CS-02: Registratore a cas- 
| sette Watson CR-5230, con 

VU-meter, alimentazione pi- 

le/rete. 

L. 79.000/73.000 


IUMARKET 


._ CS-11:Cavo di collegamen- 
to al registratore. 
L. 12.500/11.500 


MM-01: Kit pulizia e manu- 
tenzione computer e regi- 
stratore a cassette. 

L. 39.000/35.000 


CS-01: Registratore a cas- 
sette Irradio RE-730 Bit 
Recorder. 

L. 72.000/69.000 


RE Vi SETTE NR RO TER di 


60 KNOWIN 


MM-02: Kit pulizia e manu- 
tenzione computer e disk —MM-03: Smagnetizzatore 
driver. per testine registratore. 

L. 39.000/35.000 L. 29.000/26.000 


Tan 
e 


HW-04: Joystick singolo (ri- 
chiede cavetto adattatore). 
L. 23.000/21.000 


HW-14: Cavetto adattatore 
per due joystick. 
L. 30.000/28.000 


HW-05: Joystick professio- 
nale anatomico, con vento- 
se, 4 pulsanti e autofire (ri- dA 
chiede cavetto adattatore). fi. 
L. 28.000/31.000 4, 


ST-01: Stampante EPSON 
LX/80, 100 crt/sec, grafica, 
80/132 colonne, bidireziona- 
le, ottimizzata, set caratteri 
letter quality, gestisce foglio 
singolo. 

L. 970.000/890.000 


MC-05: 1000 fogli modulo 
continuo 80 colonne. 
L. 35.000/32.000 


ST-08: Macchina per scrive- 
re elettronica portatile BRO- 
THER EP/44, interfacciabile 
al computer con RS-232C. 
Stampante ad aghi comple- 
tamente silenziosa, 44 tasti 


alfanumerici, memoria di 
4.000 caratteri, display a 16 
cifre con visualizzazione li- 
nea per linea, allineamento 
al margine destro, centratu- 
ra automatica, sottolineatu- 
ra automatica, correzione 
automatica sul display, tabu- 
lazione e margine elettroni- 
co, calcolatrice, 16 crt/sec, 


carta normale o termica, ca- 
ratteri extra internazionali, 
alimentazione rete/batteria; 
fornita con 3 cartucce nastro 
e 10 fogli di carta termica. 
L. 790.000/730.000 
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ST-02: Stampante EPSON 
P-40 portatile autoalimenta- 
ta, 45 crt/sec, 40 colonne (80 
in condensato), unidirezio- 
nale, matrice 9 x 5 termica. 
L. 470.000/430.000 


MC-01: 6 cartucce nastro 
per Brother EP-44. 
L. 36.000/33.000 


MC-03: 100 fogli di carta 
termica. 
L. 14.000/12.000 


MC-06: Rotolo carta termica 
per stampante 40 colonne. 
L. 18.000/16.000 


TV-01: Monitor a colori AN- 
TAREX CT900/2, 15”, au- 
dio, cavo di collegamento 
per Tl-99-4/A. 

L. 670.000/620.000 


Offerte speciali solo abbonati 


OS-01: TI LOGO Mondado- 
ri con manuale, espansione 
di memoria 32K, libro '’Impa- 
riamo a programmare in 
Basic”. 

L. 365.000 


OS-02: Due joystick più ca- 
vo adattatore. 
L. 58.000 


OS-03: Macchina per scrive- 
re elettronica Levi EP-100, 
interfaccia per EP-100 con 
uscita Centronics, interfac- 
cia parallela. 

L. 915.000 


î 
: 
i 
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TI-99 COMPIUMARKET 


ST-04: Macchina per scrive- 
re elettronica portatile LEVI 
EP-100; collegabile al com- 
puter con interfaccia seriale 
o parallela in opzione. Scrit- 
tura silenziosa sia su carta 
termica che normale, 132 
caratteri e simboli internazio- 
nali, 11 crt/sec, display a 16 
Caratteri per correzione te- 
sto, 16 tabulazioni, calcola- 
trice incorporata, alimenta- 
zione rete/batteria. Fornita 
con 3 cartucce nastro e 15 
fogli di carta termica. 

L. 490.000/450.000 


AC-01: Box componibile con 
cassetto scorrevole per 39 
cassette audio. 

L. 45.000/41.000 


AC-02: Box componibile per 
29 videocassette 1/2 pollice. 
L. 45.000/41.000 


AC-03: Box componibile per 
24 compact disc. 
L. 45.000/41.000 


MC-04: 10 cassette vergini 
per software, 10 minuti 
cadauno. 

L. 12.000/10.000 


ST-14: Interfaccia per 
EP-100 uscita seriale RS 
232. 

L. 320.000/295.000 


ST-24: Interfaccia per 
EP-100 uscita parallela tipo 
Centronics. 

L. 320.000/295.000 


MC-02: 6 cartucce nastro 
per EP-100 
L. 36.000/33.000 


ED-01: Manuale Extended 
Basic in italiano. 
L. 20.000/18.000 


ED-02: Libro ’’Giochiamo 
con il TI-99-4/A”'. 
L. 10.500/9.500 


Software 


MD-03: Modulo Terminal 
Emulator. 
L. 57.000/52.000 


MD-04: Modulo Personal 


Report Generator 
L. 57.000/52.000 


MD-05: Modulo ADD/SUB 


(A/1 educativo. 


L. 23.000/21.000 


MD-06: Modulo MATH GA- 
MES 6-educativo. 
L. 23.000/21.000 . 


MD-07: Modulo NUMERA- 
TION 1 educativo. 
L. 23.000/21.000 


MD-08: Modulo DEMOLI- 
TION DIVISION educativo. 
L. 23.000/21.000 


MD-09: Modulo MATH GA- 
MES 2 educativo. 
L. 23.000/21.000 


MD-10: Modulo EARLY 
READING educativo. 
L. 23.000/21.000 


MD-11: Modulo WUMPUS 
gioco 
L. 23.000/21.000 


SC-01: Cassetta TI-99 CALC 
con' manuale. 
L. 39.000/35.000 
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SC-02: Cassetta Virgin RO- 
BOPODS. 
L. 19.000/17.000 


SC-03: Cassetta Virgin FUN- 
PAK. 
L. 19.000/17.000 


SC-04: Cassetta Virgin FUN- 
PAK 2. 


SC-05: Cassetta Virgin FUN- 
PACK 3. 
L. 19.000/17.000 


SC-06: Cassetta DECA- 
THLON 
L. 15.000/13.000 


SC-07: Cassetta BLE- 
GRASS corsa ippica. 
L. 13.000/12.000 


SC-08: Cassetta GOBLIN 
REVENGE labirinto. 
L. 13.000/12.000 


SC-09: Cassetta SNOW 
TREK corsa di slitte. 
L. 13.000/12.000 


SC-10: Cassetta UP PERI. 
SCOPE battaglia navale. 
L. 13.000/12.000 


SC-11: Cassetta FAMILY 
GAME - 4 giochi. 
L. 13.000/12.000 


5-9 settembre 1985 
Fiera Milano 


HEF] 


19° salone internazionale deila musica e high fidelity 
international video and consumer electronics show 


padiglioni 16-17-19-20-21-41F-42 


Segreteria generale SIM-HI-Fi-IVES ingressi: Porta Meccanica (P.za Amendola) 
Via Domenichino, 11 - 20149 Milano Porta Edilizia (V.le Eginardo) 

Te! 02/48.15 541 (ra) Orario: 9.00 - 18.00 

Telex 313627 


ASSOEXPO 
Strumenti musicali, P.A. System, Apparecchiature Hi-Fi, 


a. 


LI 


